home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 10-03.BAS < prev    next >
BASIC Source File  |  1991-06-07  |  568b  |  35 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. REM initialize the video environment
  6.  
  7. IF FGtestmode(13,1) = 0 THEN
  8.    PRINT "This program requires EGA."
  9.    STOP
  10. END IF
  11. OldMode = FGgetmode
  12. FGsetmode 13
  13. FGsetfunc 3
  14.  
  15. REM draw some type of background
  16.  
  17. FGsetcolor 15
  18. FGrect 0, 319, 0, 199
  19.  
  20. REM move the object across the screen
  21.  
  22. FGsetcolor (10 XOR 15)
  23. FOR X = -20 TO 315 STEP 5
  24.    FGclprect X, X+19, 95, 104
  25.    FGwaitfor 1
  26.    FGclprect X, X+19, 95, 104
  27. NEXT
  28.  
  29. REM restore the original video mode and return to DOS
  30.  
  31. FGsetmode OldMode
  32. FGreset
  33.  
  34. END
  35.